home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 201_300 / disk0269 / sample.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-01-02  |  384 b   |  16 lines
  1. 10  'This is a REMark
  2. 20  DEFINT H,I
  3. 30  DBL.PRECISION# = 4
  4. 40  HEX.VALUE = &HFFFF
  5. 50  B.STRING$ = "This is a string"
  6. 60  SNG.PRECISION = 5E+06
  7. 70  IF DBL.PRECISION# > SNG.PRECISION THEN GOTO 150
  8. 80  DIM ARRAY(4)
  9. 90  FOR INDEX% = 1 TO 4
  10. 100  ARRAY(INDEX%) = INDEX%^2
  11. 110  NEXT INDEX%
  12. 120  GOTO 150
  13. 130  A.STRING$ = "This is a string" + ", too!"
  14. 140  YEAR = 1982
  15. 150  PRINT "End"
  16.